/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_03 / crossley / numformat

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 1b f1 22 45 6e | 74 65 72 20 66 69 65 6c |....."En|ter fiel|
|00000010| 64 20 77 69 64 74 68 20 | 3a 22 3b 0d 00 02 17 66 |d width |:";....f|
|00000020| 69 65 6c 64 25 3d a4 47 | 65 74 4e 75 6d 28 32 35 |ield%=.G|etNum(25|
|00000030| 36 29 0d 00 03 21 f1 22 | 45 6e 74 65 72 20 6e 75 |6)...!."|Enter nu|
|00000040| 6d 62 65 72 20 6f 66 20 | 64 69 67 69 74 73 20 3a |mber of |digits :|
|00000050| 20 22 3b 0d 00 04 18 64 | 69 67 69 74 73 25 3d a4 | ";....d|igits%=.|
|00000060| 47 65 74 4e 75 6d 28 32 | 35 36 29 0d 00 05 1d f1 |GetNum(2|56).....|
|00000070| 22 45 6e 74 65 72 20 66 | 6f 72 6d 61 74 20 28 30 |"Enter f|ormat (0|
|00000080| 2d 32 29 20 3a 20 22 3b | 0d 00 06 16 66 6f 72 6d |-2) : ";|....form|
|00000090| 61 74 25 3d a4 47 65 74 | 4e 75 6d 28 33 29 0d 00 |at%=.Get|Num(3)..|
|000000a0| 07 25 f1 22 45 6e 74 65 | 72 20 53 54 52 24 20 66 |.%."Ente|r STR$ f|
|000000b0| 6f 72 6d 61 74 20 28 30 | 20 6f 72 20 31 29 20 3a |ormat (0| or 1) :|
|000000c0| 20 22 3b 0d 00 08 17 73 | 66 6f 72 6d 61 74 25 3d | ";....s|format%=|
|000000d0| a4 47 65 74 4e 75 6d 28 | 32 29 0d 00 09 16 f1 22 |.GetNum(|2)....."|
|000000e0| 53 65 74 74 69 6e 67 20 | 40 25 20 74 6f 20 22 3b |Setting |@% to ";|
|000000f0| 0d 00 0a 3b 76 61 6c 75 | 65 25 3d 28 73 66 6f 72 |...;valu|e%=(sfor|
|00000100| 6d 61 74 25 3c 3c 32 34 | 29 2b 28 66 6f 72 6d 61 |mat%<<24|)+(forma|
|00000110| 74 25 3c 3c 31 36 29 2b | 28 64 69 67 69 74 73 25 |t%<<16)+|(digits%|
|00000120| 3c 3c 38 29 2b 66 69 65 | 6c 64 25 0d 00 0b 10 f1 |<<8)+fie|ld%.....|
|00000130| 22 26 22 3b 7e 76 61 6c | 75 65 25 0d 00 0c 0d 40 |"&";~val|ue%....@|
|00000140| 25 3d 76 61 6c 75 65 25 | 0d 00 0d 29 f1 31 32 33 |%=value%|...).123|
|00000150| 34 35 36 2e 37 38 30 39 | 2c 34 35 36 2e 32 35 36 |456.7809|,456.256|
|00000160| 30 30 2c c3 28 31 32 33 | 34 35 36 2e 37 38 30 39 |00,.(123|456.7809|
|00000170| 29 0d 00 0e 05 e0 0d 00 | 0f 05 3a 0d 00 10 11 dd |).......|..:.....|
|00000180| 20 a4 47 65 74 4e 75 6d | 28 78 25 29 0d 00 11 05 | .GetNum|(x%)....|
|00000190| f5 0d 00 12 0a 20 20 e8 | 20 79 25 0d 00 13 0b fd |.....  .| y%.....|
|000001a0| 20 79 25 3c 78 25 0d 00 | 14 07 3d 79 25 0d ff    | y%<x%..|..=y%.. |
+--------+-------------------------+-------------------------+--------+--------+